PRTDRVS PROCEDURE TEMPLATE && Main program *----------------------------------------------------------------- * NAME * C:\CENTWISE\CHKWRT\TEMPLATE.PRG - Main program for form. *----------------------------------------------------------------- PRIVATE lTalk, lVoid, cOldProc, cFormRun, cDispMode, cNewMode IF SET( 'TALK' ) = 'ON' SET TALK OFF lTalk = .T. ELSE lTalk = .F. ENDIF *---------------------------------------------- *-- Ma PRTTYPE gram is part of a linked exe *-- you must either include FORMRUN.DBO in your *-- Project file or make sure that FORMRUN.DBO *-- is in the same directory as your exe file. *-- Please note that the Automatic Link feature *-- doesn't notice FORMRUN.DBO because of the *-- macro expansion for the SET PROCEDURE. *---------------------------------------------- cOldProc = SET( 'PROCEDURE' ) IF [dBASE Compiler] $ VERSION(0) SET PROCEDURE TO FORMRUN ELSE cFormRun = HOME() + 'FORMRUN' SET PROCEDURE TO ( cFormRun ) ENDIF #include "TEMPLATE.DFM" IF TYPE("TEMPLATE.SetDisp") = "L" .AND. TYPE("TEMPLATE.DispMode") = "C" IF TEMPLATE.SetDisp cDispMode = SET('DISPLAY') cNewMode = TEMPLATE.DispMode SET DISPLAY TO &cNewMode TEMPLATE.Height = TEMPLATE.nHeight ENDIF ENDIF *------------------------------------------- *-- If ModalForm is missing from .DFM set it *------------------------------------------- IF TYPE( 'TEMPLATE.ModalForm' ) # 'L' TEMPLATE.ModalForm = .T. && Assume modal form if not set ENDIF *----------------------------------- *-- Open the form based on ModalForm *----------------------------------- IF TEMPLATE.ModalForm *----------------------------------- *-- Use Readmodal() to open the form *----------------------------------- TEMPLATE.Action = .F. && Set .T. by OKHAND before closing lVoid = TEMPLATE.ReadModal() IF TEMPLATE.Action PRTTYPE APPLE LASERWRITER XEROX CORP 4045 LASER CP PRTTYPE APPLE LASERWRITER ASCII BROTHER HR-15, HR-25 C.ITOH DIGITAL PRODUCTS,INC. 715 C.ITOH DIGITAL PRODUCTS,INC. 815(P351 MODEL) C.ITOH DIGITAL PRODUCTS,INC.PROWRITER JR CANON BJ-130 CANON LBP-4 CANON-LBP-8 MARK III DATA PRODUCTS SPG-8050, SPG-8070 DIABLO (XEROX) 630 API DICONIX 150, 150 PLUS EPSON APEX 80 EPSON DOT MATRIX FAMILY EPSON DX-10 EPSON DX-20, DX-35 EPSON EPI-4000,EPI-6000 (LASER JET II EMULATION) EPSON EX-800,EX-1000 EPSON FX-100,FX-100 PLUS EPSON FX-1050 EPSON FX-185 EPSON FX-286E EPSON FX-80,FX-80 PLUS EPSON FX-85 EPSON FX-850 EPSON FX-86E EPSON GQ-3500 EPSON JX-80 EPSON JX-80 WITH 8177 EPSON L-1000 ACTIONPRINTER EPSON L-750 ACTIONPRINTER EPSON LQ-1000 EPSON LQ-1010 EPSON LQ-1050 EPSON LQ-1500 EPSON LQ-2500 EPSON LQ-2550 EPSON LQ-500 EPSON LQ-510 EPSON LQ-800 EPSON LQ-850 EPSON LQ-950 EPSON LX-80, LX-810, LX-90 EPSON MX-80, MX-100 EPSON MX-80, MX-100 WITH GRAFTAX PLU EPSON RX-100, FX-100, FX-100 PLUS EPSON RX-80, FX-80, FX-80 PLUS EPSON RX-80/FX-80 WITH 8177 EPSON SQ-1500 EPSON SQ-2000 EPSON T-1000 ACTIONPRINTER EPSON T-750 ACTIONPRINTER FACIT 4512 GENERIC - ANY PRINTER NOT LISTED HP DESKJET (HP2276) HP DESKJET 500 HP DESKJET PLUS HP HPDESKJET FAMILY HP LASERJET JII/III FAMILY HP LASERJET LJ 6 LPI HP LASERJET LJ 6.5 LPI HP LASERJET LJ LAND 6 LPI HP LASERJET LJ LAND 6.5 LPI HP LASERJET LJII 6 LPI,LJIID1 6 LPI (1-SIDE) HP LASERJET LJII 6.5 LPI,LJIID1 6.5 LPI (1-SIDE) HP LASERJET LJII LAND 6 LPI HP LASERJET LJIID1 6 LPI 1-SIDE HP LASERJET LJIID1 6.5 LPI (1-SIDE) HP LASERJET LJIID1 LA 6 LPI 1-SIDE LAND HP LASERJET LJIID2 6 LPI (2-SIDE) HP LASERJET LJIID2 6.5 LPI (2-SIDE) HP LASERJET LJIII 6 LPI HP LASERJET LJIII 6.5 LPI HP LASERJET LJIII LAND 6 LPI HP LASERJET LJIIID1 6 LPI 1-SIDE HP LASERJET LJIIID1 6.5 LPI 1-SIDE HP LASERJET LJIIID1 LA 6 LPI 1-SIDE LAND HP LASERJET LJIIID2 6 LPI 2-SIDE HP LASERJET LJIIID2 6.5 LPI 2-SIDE HP LASERJET LJIIIDSI1 6 LPI 1-SIDE HP LASERJET LJIIIDSI1 6.5 LPI 1-SIDE HP LASERJET LJIIIDSI1 LA 6 LPI 1-SIDE LAND HP LASERJET LJIIIDSI2 6 LPI 2-SIDE HP LASERJET LJIIIDSI2 6.5 LPI 2-SIDE HP LASERJET LJIIIP 6 LPI HP LASERJET LJIIIP 6.5 LPI HP LASERJET LJIIIP LAND 6 LPI HP LASERJET LJIIISI (POSTSCRIPT) HP LASERJET LJIIISI 6 LPI HP LASERJET LJIIISI 6.5 LPI HP LASERJET LJIIISI LAND 6 LPI HP LASERJET LJIIP 6 LPI HP LASERJET LJIIP 6.5 LPI HP LASERJET LJIIP LAND 6 LPI HP PAINTJET HP PAINTJET HP PAINTJET XL HP QUIETJET HP QUIETJET HP THINKJET HP THINKJET IBM COLOR JETPRINTER IBM EXECJET 4072 IBM GRAPHICS PRINTER IBM LASERPRINTER 4019 IBM LASERPRINTER E IBM LASERPRINTER FAMILY IBM PROPRINTER IBM PROPRINTER II IBM PROPRINTER III IBM PROPRINTER XL IBM QUIETWRITER (MODEL 1) IBM QUIETWRITER (MODEL 2) IBM QUIETWRITER (MODEL 3) IBM WHEELPRINTER KODAK 150, 150 PLUS (DICONIX) NEC PINWRITER P2, P3 NEC PINWRITER P5 (A) NEC SPINWRITER 3550 NEC SPINWRITER 7710 NEC SPINWRITER 8850 OKIDATA LASERLINE 6 (LJ II EMULATION) OKIDATA MICROLINE 182, 183 OKIDATA MICROLINE 182/183 WITH PLUG 'N PLAY OKIDATA MICROLINE 192, 193 OKIDATA MICROLINE 393 (EPSON EMULATION) OKIDATA MICROLINE 82A/83A WITH OKIGRAPH OKIDATA MICROLINE 84 OKIDATA MICROLINE 92, 93 OKIDATA MICROLINE 92/93/192/193 WITH PLUG 'N PLAY OKIDATA MICROLINE FAMILY (OKIDATA MODE) OKIDATA OKIMATE-20 OKIDATA PACEMARK 2350, 2410 PANASONIC KX-P1080I PANASONIC KX-P1091I PANASONIC KX-P1092I PANASONIC KX-P1124 PANASONIC KX-P1180 PANASONIC KX-P1191 PANASONIC KX-P1195 PANASONIC KX-P1524 PANASONIC KX-P1592 PANASONIC KX-P1595 PANASONIC KX-P1624 PANASONIC KX-P1695 PANASONIC KX-P4420 LASERPARTNER (LJ II MO) PANASONIC KX-P4450 LASERPARTNER (LJ II MO) POSTSCRIPT STANDARD QUME SPRINT 11 PLUS, LETTERPRO 20 RICOH 6000 LANDSCAPE ORIENT RICOH 6000 PORTRAIT ORIENT STAR NX-10 STAR NX-1000 STAR NX-15 STAR NX-1500 STAR NX-2410 STAR NX-2415 STAR XR-1500 TANDY CORP CGP-220 TEXAS INSTRUMENTS, INC 855,865 TOSHIBA P321, P341, P351 TOSHIBA PAGELASER/2 XEROX CORP (DIABLO) 630 API XEROX CORP 4045 LASER CP PANASONIC KX-P4450 LASERPARTNER (LJ II MO) POSTSCRIPT STANDARD QUME SPRINT 11 PLUS, LETTERPRO 20 RICOH 6000 LANDSCAPE ORIENT RICOH 6000 PORTRAIT ORIENT STAR NX-10 STAR NX-1000 STAR NX-15 STAR NX-1500 STAR NX-2410 STAR NX-2415 STAR XR-1500 TANDY CORP CGP-220 TEXAS INSTRUMENTS, INC 855,865 TOSHIBA P321, P341, P351 TOSHIBA PAGELASER/2 EPSON EX-800,EX-1000 EPSON LQ-2500 GENERIC - ANY PRINTER NOT LISTED HP LASERJET LJIII 6 LPI HP LASERJET LJIIISI 6.5 LPI IBM PROPRINTER OKIDATA MICROLINE 393 (EPSON EMULATION) PANASONIC KX-P1624 TOSHIBA PAGELASER/2 CEDITFLD CDIRSAVE CFILEEXT CTYPEFILE NDOTPOS CHKHNDCL CHKTENRW CHKTENCL CHKUNTRW